
Imports System
Imports System.Collections


Namespace _2bMatesSite.BO
	''' <summary>
	''' UserUsersList - base class for a user's list of users.
	''' </summary>
	Public MustInherit Class UserUsersList
		Inherits BaseList
		Protected userID As Integer

		Public Sub New(ByVal usr As User)
			Init(usr.ID)
		End Sub

		Public Sub New(ByVal userID As Integer)
			Init(userID)
		End Sub

		'
		' Private and protected methods
		'

		Protected Sub Init(ByVal userID As Integer)
			Me.rnd = New Random()
			Me.userID = userID
			Me.list = Nothing
		End Sub

		Protected Overloads Overrides Function LoadList() As Hashtable
			Return LoadList(userID)
		End Function

        Protected MustOverride Function LoadList(ByVal itemID As Integer) As Hashtable

	End Class
End Namespace






